1 j=101 
5DIM o(150), m(150), n(150), q(150), k(150), l(20), r(20) 
10DEF FN d(j)=INT(1+j*RND(1)) 
20TEXT:HTAB 15:VTAB 7 
25? "by":? 
30HTAB 11:? "MIKE HEUERMAN":? 
40HTAB 15:? "and":? 
50HTAB 11:? "DAVID SUAREZ" 
55VTAB 24 
60FOR ab=1 TO 900:NEXT ab 
70FOR x=1 TO j 
90READ m(x), n(x), o(x), q(x), k(x) 
100NEXT x 
103FOR x=j+1 TO j+9 
105READ m(x), n(x), o(x), q(x), k(x) 
108NEXT x 
110FOR x=1 TO 19 
120READ l(x), r(x) 
130NEXT x 
135HGR2 
140FOR x=1 TO j 
150HCOLOR =k(x) 
160HPLOT m(x), n(x) TO o(x), q(x) 
170NEXT x 
180GOSUB 1000 
210FOR x=1 TO 19 
215 z=FN d(11)+4 
217IF x=19 THEN HCOLOR =8:GOTO 230 
218 p=x+1:IF p>=19 THEN p=1 
220HCOLOR =0 
225HPLOT l(p), r(p) TO l(p), r(p)+3 TO l(p)+3, r(p)+3 TO l(p)+3, r(p) TO l(p), r(p) 
228HCOLOR =z 
230HPLOT l(x), r(x) TO l(x), r(x)+3 TO l(x)+3, r(x)+3 TO l(x)+3, r(x) TO l(x), r(x) 
235GOSUB 1210 
240NEXT x 
245GOTO 210 
250DATA 140,40,80,140,12 
260DATA 80,140,200,140,12 
270DATA 200,140,140,40,12 
280DATA 100,150,120,150,14 
290DATA 120,150,120,170,14 
300DATA 120,170,100,170,14 
310DATA 100,170,100,150,14 
320DATA 160,155,190,155,6 
330DATA 190,155,190,170,6 
340DATA 190,170,160,170,6 
350DATA 160,170,160,155,6 
360DATA 151,45,145,35,13 
370DATA 145,35,153,26,13 
380DATA 153,26,145,30,13 
390DATA 145,30,140,21,13 
400DATA 140,21,135,30,13 
410DATA 135,30,127,26,13 
420DATA 127,26,135,35,13 
430DATA 135,35,129,45,13 
440DATA 129,45,140,40,13 
450DATA 140,40,151,45,13 
460DATA 135,140,135,162,8 
470DATA 145,140,145,162,8 
480DATA 130,162,150,162,5 
490DATA 150,162,145,169,5 
500DATA 145,169,135,169,5 
510DATA 135,169,130,162,5 
520DATA 100,158,120,158,03 
530DATA 100,162,120,162,03 
540DATA 108,150,108,170,03 
550DATA 112,150,112,170,03 
560DATA 160,163,166,155,10 
570DATA 166,155,172,165,10 
571DATA 20,70,20,60,3 
572DATA 23,70,23,60,3 
573DATA 35,70,35,60,3 
574DATA 38,70,38,60,3 
575DATA 50,70,50,60,3 
576DATA 53,70,53,60,3 
577DATA 65,70,65,60,3 
578DATA 68,70,68,60,3 
579DATA 30,30,25,45,1 
580DATA 25,45,35,45,1 
581DATA 35,45,30,30,1 
582DATA 29,45,29,50,1 
583DATA 31,45,31,50,1 
584DATA 69,49,69,59,3 
585DATA 61,49,61,59,1 
586DATA 61,49,61,59,3 
587DATA 45,25,40,40,1 
588DATA 40,40,50,40,1 
589DATA 172,165,178,155,10 
590DATA 178,155,184,165,10 
591DATA 50,40,45,25,1 
592DATA 41,32,37,22,1 
593DATA 33,32,41,32,1 
594DATA 37,22,33,32,1 
595DATA 36,32,36,35,8 
596DATA 38,32,38,35,8 
597DATA 15,40,15,36,8 
598DATA 17,40,17,36,8 
599DATA 16,36,17,36,8 
600DATA 184,165,190,158,10 
601DATA 22,22,18,32,1 
603DATA 26,32,22,22,1 
605DATA 21,32,21,35,8 
606DATA 23,32,23,35,8 
607DATA 62,51,68,51,5 
608DATA 62,50,68,50,5 
609DATA 62,49,68,49,5 
610DATA 44,40,44,45,8 
611DATA 46,40,46,45,8 
612DATA 20,150,20,180,5 
613DATA 50,150,50,180,5 
614DATA 20,180,50,180,5 
615DATA 20,150,50,150,5 
616DATA 25,180,25,172,8 
617DATA 45,180,45,172,8 
619DATA 160,168,166,160,11 
620DATA 166,160,172,170,11 
621DATA 26,172,45,172,8 
630DATA 172,170,178,160,11 
640DATA 178,160,184,170,11 
641DATA 10,20,80,20,13 
642DATA 80,20,80,70,13 
643DATA 80,70,10,70,13 
644DATA 10,70,10,20,13 
645DATA 5,140,65,140,5 
646DATA 5,125,65,125,5 
647DATA 210,20,240,20,08 
648DATA 240,20,240,80,08 
649DATA 240,80,210,80,08 
650DATA 184,170,190,163,11 
651DATA 210,80,210,20,08 
652DATA 65,125, 65,140,5 
653DATA 5,125,5,140,5 
654DATA 10,140,10,190,5 
655DATA 60,140,60,190,5 
656DATA 10,190,60,190,5 
657DATA 10,60,80,60,3 
658DATA 10,57,80,57,3 
659DATA 25,173,25,172,3 
660DATA 25,172,27,165,13 
661DATA 27,165,29,173,5 
662DATA 29,173,32,163,5 
663DATA 32,163,35,173,5 
664DATA 35,173,38,163,5 
665DATA 38,163,41,173,5 
666DATA 41,173,43,165,5 
667DATA 43,165,45,173,5 
669DATA 140,100 
670DATA 134,60 
680DATA 145,70 
690DATA 140,80 
700DATA 120,90 
710DATA 160,90 
720DATA 150,110 
730DATA 125,125 
740DATA 180,130 
750DATA 100,125 
760DATA 165,120 
770DATA 150,130 
780DATA 120,110 
790DATA 148,43 
800DATA 129,43 
810DATA 138,18 
820DATA 154,24 
830DATA 126,24 
840DATA 212,50 
1000HCOLOR =1 
1005FOR i=0 TO 360 STEP 6 
1006FOR h=7 TO 10 STEP 1 
1010HPLOT SIN(i*22/7/180)*h+225, COS(i*22/7/180)*h+35 
1019NEXT h 
1020NEXT i 
1040FOR u=19 TO 239 STEP 20 
1045FOR i=270 TO 450 STEP 12 
1046FOR h=9 TO 10 
1050HPLOT SIN(i*22/7/180)*h+u, COS(i*22/7/180)*h+3 
1060NEXT 
1070NEXT 
1080NEXT 
1090 h=4 
1100FOR i=90 TO 270 STEP 12 
1110HPLOT SIN(i*22/7/180)*h+65, COS(i*22/7/180)*h+49 
1120NEXT 
1200RETURN 
1210FOR i=j+1 TO j+9 
1213IF x/2=INT(x/2) THEN 1220 
1215IF i/2=INT(i/2) THEN HCOLOR =5:GOTO 1230 
1217HCOLOR =13:GOTO 1230 
1220IF i/2=INT(i/2) THEN HCOLOR =13:GOTO 1230 
1225HCOLOR =5:GOTO 1230 
1230HPLOT m(i), n(i) TO o(i), q(i) 
1240NEXT i 
1250RETURN

              125,125 
740DATA 180,130 
750DATA 100,125 
760DATA 165,120 

